home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 31 / CD Expert nº 31 Unreal Mission Pack I.iso / PetWings / petwings.exe / PetWings.exe / RCDATA / 169 < prev    next >
Text File  |  1999-08-04  |  1KB  |  98 lines
  1. //-------- BAT (LARGE) --------
  2.  
  3. SPEED 6
  4.  
  5. LABEL 1
  6.  
  7. GOSUB 4
  8. GOSUB 5
  9. SHOOT 4
  10. GOSUB 4
  11.  
  12. GOSUB 2
  13. GOSUB 3
  14. SHOOT 4
  15. GOSUB 2
  16.  
  17. GOTO_LABEL 1
  18.  
  19.  
  20. // Clock-wise First half
  21. LABEL 2
  22.    DIRECTION 0
  23.    INCR_FRAME
  24.    MOVE 2
  25.  
  26.    REPEAT 15
  27.    ROTATE_RIGHT 1
  28.    INCR_FRAME
  29.    MOVE 2
  30.    INCR_FRAME 
  31.    MOVE 2
  32.    REPEAT_END
  33.  
  34.    ROTATE_RIGHT 1
  35.    INCR_FRAME
  36.    MOVE 2
  37. RETURN
  38.  
  39. // Clock-wise Second half
  40. LABEL 3
  41.    DIRECTION 16
  42.    INCR_FRAME
  43.    MOVE 2
  44.  
  45.    REPEAT 15
  46.    ROTATE_RIGHT 1
  47.    INCR_FRAME
  48.    MOVE 2
  49.    INCR_FRAME
  50.    MOVE 2
  51.    REPEAT_END
  52.  
  53.    ROTATE_RIGHT 1
  54.    INCR_FRAME
  55.    MOVE 2
  56. RETURN
  57.  
  58. // AntiClock-wise First half
  59. LABEL 4
  60.    DIRECTION 16
  61.    INCR_FRAME
  62.    MOVE 2
  63.  
  64.    REPEAT 15
  65.    ROTATE_LEFT 1
  66.    INCR_FRAME
  67.    MOVE 2
  68.    INCR_FRAME
  69.    MOVE 2
  70.    REPEAT_END
  71.  
  72.    ROTATE_LEFT 1
  73.    INCR_FRAME
  74.    MOVE 2
  75. RETURN
  76.  
  77. // AntiClock-wise Second half
  78. LABEL 5
  79.    DIRECTION 0
  80.    INCR_FRAME
  81.    INCR_FRAME
  82.    MOVE 2
  83.  
  84.    REPEAT 15
  85.    ROTATE_LEFT 1
  86.    INCR_FRAME
  87.    MOVE 2
  88.    INCR_FRAME
  89.    MOVE 2
  90.    REPEAT_END
  91.  
  92.    ROTATE_LEFT 1
  93.    INCR_FRAME
  94.    MOVE 2
  95. RETURN
  96.  
  97. //=================================== END OF LINE =====================================
  98.